home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.11 Nov 87 / C string library / PStrLib Source / PStrFindFC.c < prev    next >
Encoding:
C/C++ Source or Header  |  1987-10-21  |  427 b   |  16 lines  |  [TEXT/KAHL]
  1. /*    FILE:    PStrFindFC.c
  2.     Finds first occurance of c in s. */
  3. #include    "PStrLib.h"
  4.  
  5. PStrFindFC(s, c)     
  6. register unsigned char    *s;    /* Pascal string */
  7. register int    c;            /* char to find */
  8. {    
  9.     register    int                n = *s;
  10.     register    unsigned char    *sp = s;
  11.     
  12.     c &= 0xFF;    /* strip sign ext. incase caller's c was type char */
  13.     while (*++sp != c && --n >= 0);
  14.     return(n >= 0 ? sp - s : 0);
  15. }    /* Result: 0 if Not Found, else char position */
  16.